home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-9.10-netbook-remix-PL.iso / casper / filesystem.squashfs / usr / share / m17n / THAI-NORASI.flt < prev    next >
Text File  |  2009-04-29  |  3KB  |  132 lines
  1. ;; THAI-NORASI.flt -- Font Layout Table for Thai (Norasi font)
  2. ;; Copyright (C) 2003, 2004, 2007  AIST (H15PRO112)
  3. ;; See the end for copying conditions.
  4.  
  5. (font layouter thai-norasi nil
  6.       (font (nil norasi unicode-bmp)))
  7.  
  8. ;;; <li> THAI-NORASI.flt
  9. ;;;
  10. ;;; For the Thai Norasi family fonts to draw Thai script.  The fonts are
  11. ;;; available at:
  12. ;;; <ul>
  13. ;;; <li> infopage: <http://packages.debian.org/stable/x11/xfonts-thai-ttf.html>
  14. ;;; </ul>
  15.  
  16. ;; 1st stage: basic composition of CVT
  17. (category
  18.  ;; C: CONSONANT
  19.  ;; V: VOWEL upper and lower
  20.  ;; A: SARA-AM
  21.  ;; T: TONE
  22.  ;; E: else
  23.  (0x0E00 0x0E5F ?E)
  24.  (0x0E01 0x0E2E    ?C)
  25.  (0x0E31    ?V)
  26.  (0x0E33    ?A)
  27.  (0x0E34 0x0E3A    ?V)
  28.  (0x0E47    ?V)
  29.  (0x0E48 0x0E4E    ?T)
  30.  )
  31.  
  32. (generator
  33.  (0
  34.   (cond
  35.    ("(C)(T)?(A)"            ; SARA-AM -> NIKHAHIT+SARA-AA
  36.     (1 = 0x0E4D) (2 =) (3 0x0E32))
  37.    ("(C)(T)(V)?"            ; CTV -> CVT
  38.     (1 =) (3 =) (2 =))
  39.    ("(C)(V)?(T)?"
  40.     (1 =) (2 =) (3 =))
  41.    ("[^C]"
  42.     =))
  43.   *))
  44.  
  45. (category
  46.  ;; C: CONSONANT tall
  47.  ;; c: CONSONANT normal
  48.  ;; d: CONSONANT deep
  49.  ;; V: VOWEL upper, NIKHAHIT, and YAMAKKAN
  50.  ;; v: VOWEL lower
  51.  ;; T: TONE
  52.  ;; E: ELSE
  53.  (0x0E00 0x0E5F    ?E)
  54.  (0x0E01 0x0E2E    ?c)
  55.  (0x0E0D 0x0E10    ?d)
  56.  (0x0E1B    ?C)
  57.  (0x0E1D    ?C)
  58.  (0x0E1F    ?C)
  59.  (0x0E2C    ?C)
  60.  (0x0E31    ?V)
  61.  (0x0E34 0x0E37    ?V)
  62.  (0x0E38 0x0E3A    ?v)
  63.  (0x0E47    ?V)
  64.  (0x0E48 0x0E4C    ?T)
  65.  (0x0E4D 0x0E4E    ?V)
  66.  (0x25CC    ?E))
  67.  
  68. (generator
  69.  (0
  70.   (cond 
  71.    ("(C)(V)(T)?"
  72.     < (1 =) (2 vowel-upper-left) (3 tone-high-left) >)
  73.    ("(C)(v)?(T)?"
  74.     < (1 =) (2 =) (3 tone-low-left) >)
  75.    ("([cd])(V)(T)?"
  76.     < (1 =) (2 =) (3 =) >)
  77.    ("(c)(v)?(T)?"
  78.     < (1 =) (2 =) (3 tone-low) >)
  79.    ("(d)(v)?(T)?"
  80.     < (1 =) (2 vowel-deep) (3 tone-low) >)
  81.    ("[VvT]"
  82.     (cond ((font-facility 0x25CC) < 0x25CC = > ) ("." [ = ] )))
  83.    ("."
  84.     =))
  85.   *)
  86.  
  87.  (vowel-upper-left
  88.   (cond
  89.    ((0x0E31) =)
  90.    ((range 0x0E34 0x0E37) 0xF701)
  91.    ((0x0E47) =)
  92.    ((0x0E4D) 0xF711)
  93.    ((0x0E4E) =)))
  94.  
  95.  (vowel-deep
  96.   ((range 0x0E38 0x0E3A) 0xF718))
  97.  
  98.  (tone-high-left
  99.   ((range 0x0E48 0x0E4C) 0xF713))
  100.  
  101.  (tone-low-left
  102.   ((range 0x0E48 0x0E4C) 0xF705))
  103.  
  104.  (tone-low
  105.   ((range 0x0E48 0x0E4C) 0xF70A)))
  106.  
  107. ;; Copyright (C) 2003, 2004, 2007
  108. ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  109. ;;   Registration Number H15PRO112
  110.  
  111. ;; This file is part of the m17n database; a sub-part of the m17n
  112. ;; library.
  113.  
  114. ;; The m17n library is free software; you can redistribute it and/or
  115. ;; modify it under the terms of the GNU Lesser General Public License
  116. ;; as published by the Free Software Foundation; either version 2.1 of
  117. ;; the License, or (at your option) any later version.
  118.  
  119. ;; The m17n library is distributed in the hope that it will be useful,
  120. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  121. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  122. ;; Lesser General Public License for more details.
  123.  
  124. ;; You should have received a copy of the GNU Lesser General Public
  125. ;; License along with the m17n library; if not, write to the Free
  126. ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  127. ;; Boston, MA 02110-1301, USA.
  128.  
  129. ;; Local Variables:
  130. ;; mode: lisp
  131. ;; End:
  132.